home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / PGM_TOOL / RLINE_OP / SEEME.PAS < prev   
Pascal/Delphi Source File  |  1989-10-09  |  653b  |  42 lines
  1. {$A+,B-,D+,E-,F-,I-,L+,N-,O-,R-,S-,V-}
  2. {$M 16384,0,655360}
  3.  
  4. PROGRAM SeeMe;
  5.  
  6. uses
  7.   crt,
  8.   moveops,
  9.   rline,
  10.   Readers;
  11.  
  12. CONST
  13.   FileBufSize = 4096 * 2;
  14.  
  15. VAR
  16.   V : Reader;
  17.   Fn : string[66];
  18.  
  19. BEGIN
  20.   clrscr;
  21.   if paramcount = 0
  22.   then Fn := 'README'
  23.   else Fn := ParamStr(1);
  24.  
  25.   if not v.init(Fn,FileBufSize,1,4,80,25)
  26.   then BEGIN
  27.     writeln('Not enough memory.');
  28.     halt(1);
  29.   END;
  30.  
  31.   gotoxy(1,3);
  32.   writeln(
  33. '───────────────────────────────────────────────────────────────────────────────');
  34.  
  35.   with v do BEGIN
  36.     checkrferror;
  37.     tofl;
  38.     while scrollselect <> #27 do;
  39.     done;
  40.     clrscr;
  41.   END;
  42. END.